Grafik: Op Art

Dank an Bridget Riley

Script mit Doppelklick oder STRG+R aufrufen!
____________________________________________

ScriptBegin
var Grafik = "Script Funktionen";
var b=1;     // 1 Linienbreite
var a=1.1;   // 1.1 Linienabstand
var c=1.02;  // 1.02 Faktor fr Line 2
var d=2;     // 2 Drehung

var Back = "orangered";  // "blue" "orangered" "tomato"
var Fill = "black";  // "crimson"  

var min = -150;
var max =  150;
var dt  =  0.05;

function fp(t)
{  t=t+50;
   return c*(50 * Math.sin(0.051*t)/t * 
              8 * Math.cos(0.1*t)+dy); 
}

function init()
{ t.setBrush(Back)
  t.setPage();
  t.setAntiAliasing();    
}

function draw()
{ //t.drawKoordSystem()
  t.setNoStyle();

  t.beginPolygon();
  dy=b; t.drawGraf("fp");
 
  dy=0; c=1; dt =-dt; t.drawGraf("fp");
  t.endPolygon();

  t.setPen(Fill); t.setBrush(Fill);
  t.defDraw("Line");

  y=-120; t.turn(d);
  for(i=1; i<130; i++)
  { t.goTo(0,y);
    t.draw("Line");
    y=y+a+b;    
  }
}
ScriptEnd


